home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / DBEPSON.PRG < prev    next >
Text File  |  1985-12-21  |  2KB  |  97 lines
  1. restore from DBepson
  2. set confirm on
  3. set bell off
  4. set escape off
  5. set exact on
  6. store "  " to sel
  7. do while sel<>"28"
  8. clear
  9. text
  10.               dBASE III EPSON PRINTER SETUP
  11.      Program Resources, Inc. - USEPA #68-01-6849-010
  12.  
  13.     1. Initialize Printer           15. Expanded On
  14.     2. Sound Bell                   16. Expanded Off
  15.     3. Line Feed                    17. Compressed On
  16.     4. Form Feed                    18. Compressed Off
  17.     5. 8 Lines per Inch             19. Emphasized On
  18.     6. 6 Lines per Inch             20. Emphasized Off
  19.     7. Draft Mode (LQ only)         21. Double Strike On
  20.     8. Letter Mode (LQ only)        22. Double Strike Off
  21.     9. Elite Mode (LQ only)         23. Underline On
  22.    10. Cancel Elite (LQ only        24. Underline Off
  23.    11. Proportional On (LQ only)    25. Superscript On
  24.    12. Proportional Off (LQ only)   26. Subscript On
  25.    13. Italic On (LQ only)          27. Cancel super/subscript
  26.    14. Italic Off (LQ only)         28. Exit Procedure
  27.  
  28. endtext
  29. ?
  30. ?
  31. @ 23,12 say "Enter Selection Number> " get sel
  32. read
  33. *set print on
  34. do case
  35. case sel="1"
  36.   ? epinit
  37. case sel="2"
  38.   ? epbell
  39. case sel="3"
  40.   ? eplf
  41. case sel="4"
  42.   ? epff
  43. case sel="5"
  44.   ? ep8lpi
  45. case sel="6"
  46.   ? ep6lpi
  47. case sel="7"
  48.   ? epdraft
  49. case sel="8"
  50.   ? epletter
  51. case sel="9"
  52.   ? epelite
  53. case sel="10"
  54.   ? epnoelite
  55. case sel="11"
  56.   ? epporp
  57. case sel="12"
  58.   ? epnoporp
  59. case sel="13"
  60.   ? epital
  61. case sel="14"
  62.   ? epnoital
  63. case sel="15"
  64.   ? epexpand
  65. case sel="16"
  66.   ? epnoexpand
  67. case sel="17"
  68.   ? epcomp
  69. case sel="18"
  70.   ? epnocomp
  71. case sel="19"
  72.   ? epemph
  73. case sel="20"
  74.   ? epnoemph
  75. case sel="21"
  76.   ? epdbl
  77. case sel="22"
  78.   ? epnodbl
  79. case sel="23"
  80.   ? epund
  81. case sel="24"
  82.   ? epnound
  83. case sel="25"
  84.   ? epsuper
  85. case sel="26"
  86.   ? epsub
  87. case sel="27"
  88.   ? epnoscrp
  89. case sel="28"
  90.   clear
  91. otherwise
  92.   store "  " to sel
  93.   ? epbell
  94. endcase
  95. set print off
  96. enddo
  97.